; get keywords
Let word=-1
Loop
	Let word=word+1
	MoveCursorTo STARTOF DOCUMENT 
	If word<>0
		MoveCursor DOWN ,word
	EndIf
	MoveCursorTo ENDOF LINE 
	Let keyword[word]=charstobegofline
Until keyword[word]="!"
Let nokey=word-1